#!/usr/bin/perl

use SOAP::Lite;
use CGI qw(param); 

use warnings;
use strict;
 
my $service = SOAP::Lite->uri('http://enmicasa.url.es/servicio')->proxy('http://localhost/cgi-bin/3_7_servicio.pl'); 

my $result = $service->index->result; 

print "Content-Type:text/html\n\n";

print "$result";
